(^^ setf *trace-level* 9)

(tweeteo	


	(cat adv t () (to regla1))
	(cat adv t () (to regla10))
	(cat adv t () (to regla25))
		
)

(regla1 (cat verbo t () (to regla2)))
(regla2 (cat n2 t () (to regla3)))
(regla3 (cat unk t () (to regla4))) 
(regla4 (cat unk t () (to regla5)))
(regla5 (cat unk t () (to regla6)))
(regla6 (cat prop t () (to regla7)))
(regla7 (cat v1 t () (to regla8)))
(regla8 (cat art t () (to regla9)))
(regla10 (cat unk t () (to regla11)))
(regla11 (cat unk t () (to regla12)))
(regla12 (cat adv t () (to regla13)))
(regla13 (cat unk t () (to regla14))) 
(regla14 (cat v1 t () (to regla15)))
(regla15 (cat art t () (to regla16))) 
(regla16 (cat unk t () (to regla17)))
(regla17 (cat unk t () (to regla18)))
(regla18 (cat adv t () (to regla19)))
(regla19 (cat adv t () (to regla20)))
(regla20 (cat unk t () (to regla21)))
(regla21 (cat unk t () (to regla22)))
(regla22 (cat unk t () (to regla23)))
(regla23 (cat unk t () (to regla24)))
(regla25 (cat unk t () (to regla26)))
(regla26 (cat unk t () (to regla27)))
(regla27 (cat 0 t () (to regla28)))
(regla28 (cat v28 t () (to regla29)))
(regla29 (cat prop t () (to regla30)))
(regla30 (cat v1 t () (to regla31)))
(regla31 (cat art t () (to regla32)))
(regla32 (cat unk t () (to regla33)))


(regla24 (cat unk t () (to end)))
(regla33 (cat unk t () (to end)))
(regla9 (cat unk t () (to end)))


(end (pop "Mensaje" t))
